home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / psetup / prsel.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-11-12  |  5.0 KB  |  114 lines
  1. PrSel
  2. Select a printer...
  3. Form1*
  4. Label1
  5. &Printers:
  6. PList
  7. BT_OK
  8.     BT_Cancel
  9. Cancel
  10. BT_Setup
  11. &Setup
  12. Picture1_Click
  13. GetProfileString
  14. AppName
  15. KeyName
  16. Default
  17. Form_Click
  18. Device
  19. newpos
  20. Driver
  21. DeviceMode
  22. form1
  23. PrDev
  24. GetDefPrDev
  25.     PrDefault
  26. DefPrD
  27. GetDefDefPr
  28. GetDefDevPr
  29. @    Form_Load
  30. IniFile    
  31. GetPrivateProfileStringP
  32. PList_Click
  33. alldevs
  34. count
  35. cpos2
  36. eptr>
  37. devlen
  38. PDevso
  39. BT_OK_Click
  40. devcnt
  41. devload
  42. cptr.
  43. dptrb
  44. PrintPDevs
  45. PDevsCnth
  46. entry
  47. PList
  48. PList_DblClick
  49.     listcount|
  50.     listindexU
  51. BT_Setup_ClickL
  52. WinIni
  53. PrSel
  54. GetDefPr
  55. DevApp
  56. devline
  57. DefApp
  58. DefKey
  59. PrDevs
  60. SetDefPr
  61. OutDev
  62. WritePrivateProfileString<
  63. PrSel_Load
  64. Label1_Click
  65. Do_OK
  66. BT_Cancel_Click
  67. CallPSetupp
  68. BT_OK_Click
  69. BT_Setup_Click
  70. No printer drivers available in the Windows WIN.INI file."
  71. Error:
  72. No printer device selected."
  73. Error:
  74. GetDefPr
  75. This "points" to the beginning of a name to be parsed.
  76. This "points" to the end of a name to be parsed.
  77. Debug.Print "
  78. -*Begin*
  79. Debug.Print PrDefault.Device
  80. Debug.Print PrDefault.Driver
  81. Debug.Print PrDefault.Port
  82. Form_Load
  83.  The prime directive to this Sub is to parse the list of devices in a .INI
  84.  file, and display them in the PList listbox..
  85. The running count of printer devices parsedc
  86. This "points" to the beginning of a name to be parsed.
  87. This "points" to the end of a name to be parsed.
  88.  Debug.Print "
  89.  Debug.Print PrDefault.Device-
  90.  Debug.Print PDevs(i%).Device-
  91.  Debug.Print PrDefault.Device = PDevs(i%).Device
  92.  Debug.Print PrDefault.Driver 
  93.  Debug.Print PDevs(i%).Driver 
  94.  Debug.Print PrDefault.Driver = PDevs(i%).Driver
  95.  Debug.Print PrDefault.Porte
  96.  Debug.Print PDevs(i%).Porte
  97.  Debug.Print PrDefault.Port = PDevs(i%).Port
  98.  For z% = 1 To Len(PrDefault.Port)
  99.  Debug.Print Asc(Mid$(PrDefault.Port, z%, 1));
  100.  Next z%
  101.  Debug.Print
  102.  For z% = 1 To Len(PDevs(i%).Port)
  103.  Debug.Print Asc(Mid$(PDevs(i%).Port, z%, 1));
  104.  Next z%
  105.  Debug.Print
  106. Do_OK
  107. No printer drivers available in the Windows WIN.INI file."
  108. Error:
  109. No printer device selected."
  110. Error:
  111.  At this point, we know a printer's been selected, so save it out to the .INI file.
  112. PList_DblClick
  113. BT_Cancel_Click
  114.